home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / biz / swood / fw_font.lha / FW_Font / FontLook.fwrexx.long < prev    next >
Text File  |  1997-01-20  |  5KB  |  235 lines
  1. /* Hiermit erhält man eine Übersicht über seine gesamten Zeichensätze*/
  2. /* © Heiko Schröder / 20.01.97 / Mail: s93324@fh-telekom-leipzig.de */
  3. R='0A'X
  4.  
  5. Address='FinalW'
  6. Options results
  7.  
  8. STATUS PORTNAME
  9. FW = result
  10. address = FW
  11.  
  12. SIGNAL ON BREAK_C
  13.  
  14. 'ShowMessage 2 0 "FontLook V2.70" "für einzelne Fonts..." "(©) Heiko Schröder - 20.01.97" ":-)" "Ok" "(-:"'
  15. 'ShowMessage 1 1 "A C H T U N G !" "Das Makro benötigt ein leeres Dokument." "Ihr Dokument wird gelöscht!" "Ja" "Abbruch" ""'
  16. if result=2 then call BREAK_C
  17. Cleardoc Force
  18.  
  19. 'ShowMessage 2 0 "Codes oder Layout" "" "" "Codes" "Layout" ""'
  20. cl=result
  21.  
  22. 'ShowMessage 2 0 "Wie soll die" "Bilschirmausgabe erfolgen?" "" "Normal" "Speed" ""'
  23. ba=result
  24.  
  25. 'ShowMessage 1 0 "Benötigen Sie Locher-Marken?" "" "" "Ja" "Nein" ""'
  26. lm=result
  27.  
  28. /*FensterMinimierung*/
  29. IF ba=2 THEN DO
  30.    status WINDOW
  31.    parse VAR result links oben width height minwidth minheight maxwidth maxheight
  32.    sizewindow minwidth minheight
  33. End
  34.  
  35. GetDocItemPrefs Decimal
  36. Punkt=Result
  37. If Punkt="Comma" then DocItemPrefs Decimal Period
  38.  
  39. Font
  40. a=RC
  41.  
  42. If a=0 then do
  43.    Type d2c(32)
  44.    BackSpace
  45.    status FontPath
  46.    FullFontName=result
  47.    pos=LASTPOS('/', FullFontName)
  48.    IF (pos~=0) THEN
  49.        FontName=RIGHT(FullFontName, LENGTH(FullFontName)-pos)
  50.    ELSE DO
  51.        pos=LASTPOS(':', FullFontName)
  52.        IF (pos~=0) THEN
  53.            FontName=Right(FullFontName, LENGTH(FullFontName)-pos)
  54.        ELSE EXIT
  55.    END
  56.  
  57.    IF ba=2 THEN View 20
  58.  
  59.    Pagesetup Pagetype A4 Orient Tall Pages RightOnly Top 0 Bottom 2.54 Left 0 Right 0
  60.    SectionSetup Top 2.54 Bottom 2.54 Inside 2 Outside 1
  61.  
  62.    GraphicTool
  63.    LinePrefs LineWt .5
  64.    DrawLine 1 2 3.5 20 3.5
  65.    DrawLine 1 2 26 20 26
  66.  
  67.    If lm=1 then DrawLine 1 .5 14.85 1 14.85
  68.  
  69.    TextTool
  70.    If cl=1 then do
  71.  
  72.       Do i=0 to 13
  73.          SetTab i*1.3+0.8 Right
  74.       End
  75.  
  76.       Justify Center
  77.       Font Softsans
  78.       FontSize 18
  79.       Type FontName||R||R
  80.  
  81.       a=0
  82.  
  83.       DO w=1 to 15
  84.  
  85.          Font Softsans
  86.          FontSize 8
  87.          DO x=a+33 to a+46
  88.              Type d2c(9) || x || d2c(32) || d2c(x)
  89.          END
  90.  
  91.          Type R
  92.  
  93.          Font FontName
  94.          FontSize 24
  95.          DO x=a+33 to a+46
  96.              Type d2c(9)
  97.             Type d2c(x)
  98.          END
  99.  
  100.          Type R
  101.  
  102.          a=a+14
  103.  
  104.       END
  105.  
  106.       Font Softsans
  107.       FontSize 8
  108.       DO x=a+33 to a+45
  109.           Type d2c(9) || x || d2c(32) || d2c(x)
  110.       END
  111.  
  112.       Type d2c(9)||R
  113.  
  114.       Font FontName
  115.       FontSize 24
  116.       DO x=a+33 to a+45
  117.           Type d2c(9)
  118.          Type d2c(x)
  119.       END
  120.  
  121.       Type d2c(9)||R
  122.       FontSize 12
  123.       Type d2c(9)||R
  124.       Font Softsans
  125.  
  126.       FontSize 8
  127.       Justify Right
  128.       Type Date(E)" - "FullFontName
  129.  
  130.    END
  131.  
  132. /* ------- */
  133.  
  134.    If cl=2 then do
  135.  
  136.       Justify Center
  137.       Font Softsans
  138.       FontSize 18
  139.       Type FontName||R
  140.  
  141.       Justify Left
  142.       Font FontName
  143.       FontSize 8
  144.       Type R||"This is 8-point type - not easy to read!"||R
  145.  
  146.       FontSize 9
  147.       Type "9-Point type is about the smallest readable size."||R
  148.  
  149.       FontSize 10
  150.       Type "With 10-point type, we have a normal text size."||R
  151.  
  152.       FontSize 12
  153.       Type "With some Fonts, 12-point type is easier to read."||R
  154.  
  155.       FontSize 14
  156.       Type "14-point type is good for subheadings."||R
  157.  
  158.       FontSize 16
  159.       Type "For larger subheadings, try 16-point type."||R
  160.  
  161.       FontSize 18
  162.       Type "18-point type makes nice small headlines."||R
  163.  
  164.       FontSize 24
  165.       Type "24-point type is for medium headlines."||R
  166.  
  167.       FontSize 36
  168.       Type "36-point is for larger ones."||R
  169.  
  170.       FontSize 48
  171.       Type "48-point almost shouts!"||R||R
  172.  
  173.       FontSize 12
  174.       Font SoftSans
  175.       Type "NORMAL"||R
  176.  
  177.       FontSize 10
  178.       Font FontName
  179.       Type "ABCDEFGHIJKLMNOPQRSTUVWXYZ"||R
  180.       Type "abcdefghijklmnopqrstuvwxyz 1234567890 !@#$%^&*()-+=[]{}/:;,.?"||R
  181.       Type "The quick brown fox jumps over the lazy dog. ÄÖÜäöüß"||R||R||R
  182.  
  183.       FontSize 12
  184.       Font SoftSans
  185.       Type "ERWEITERTER SCHRIFTCODE"||R
  186.  
  187.       FontSize 10
  188.       Font FontName
  189.       j=0
  190.       Do i=1 to 4
  191.          Do k=128+j to 159+j
  192.             Type d2c(k)
  193.          End
  194.          Type R
  195.          j=j+32
  196.       End
  197.       Status BodyTextHeight
  198.       th=result
  199.       FG=26.24-2.113-th
  200.       FG=Trunc(FG*8/0.34)
  201.       FontSize FG
  202.       Type d2c(9)
  203.       Font SoftSans
  204.       FontSize 8
  205.       Type R
  206.       Justify Right
  207.       Type Date(E)" - "FullFontName
  208.    END
  209.  
  210.    call WH
  211.  
  212.    'ShowMessage 2 1 "Wie geht es weiter?" "" "" "Speichern" "Drucken" "Abbrechen"'
  213.    If result=1 then Save
  214.    If result=2 then Print
  215. END
  216.  
  217. 'ShowMessage 2 0 "Vielen Dank für die Benutzung." "" "" ":-)" "Bitte" "(-:"'
  218.  
  219. EXIT
  220.  
  221. BREAK_C:
  222.    'ShowMessage 1 1 "Makro-Abbruch..." "" "" "Ich weiß..." "" ""'
  223.    call WH
  224.    address "REXX"
  225.    Address command "delete ram:fonts QUIET"
  226.    EXIT
  227.  
  228. WH:
  229.    If ba=2 then do
  230.       View
  231.       sizewindow width height
  232.    End
  233.    If Punkt="Comma" then DocItemPrefs DECIMAL Comma
  234. Return
  235.